home *** CD-ROM | disk | FTP | other *** search
- lea.l PROTCALLENC-400(pc),a0
- adda.w #400,a0
- move.l #$75055345,d0
- move.w #(ENDPROT-PROTCALLENC)/4-1,d1
- decode:
- add.l d0,(a0)+
- ror.l #1,d0
- dbra d1,decode
-
-
- lea.l dummycall-5000(pc),a1
- lea.l protspace-10000(pc),a2
- lea.l DummyAdds-2000(pc),a3
- moveq #0,d0
- lea PROTCALLENC-200(pc),a4
- adda.w #200,a4
- jsr (a4)
-
- move.w #235,d0
- here:
- lea.l PROTSETUP(pc),a0
- move.w #(getrid-PROTSETUP)/2,d1
- getrid:
- add.w d0,(a0)+
- addq #6,d0
- dbra d1,getrid
- move.l #$4e754e75,d0
- move.l d0,(a0)+
- move.l d0,(a0)+
- move.l d0,(a0)+
- move.l d0,(a0)+
- move.l d0,(a0)+
- move.l d0,(a0)+
- move.l d0,(a0)+
- rts
-
- ds.w 10
-